100 |
How do I enable the cross link support ( rectangular )
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add "Element <sha ;;0>A" .Add "Element <sha ;;0>B",0,76 With .Add("Element <sha ;;0>C",-76,32) .AutoSize = False .Height = 32 End With With .Add("Element <sha ;;0>D",76,32) .AutoSize = False .Height = 32 End With End With With .Links With .Add(Surface1.Elements.Item(1),Surface1.Elements.Item(2)) .StartPos = 1 .EndPos = 1 End With With .Add(Surface1.Elements.Item(2),Surface1.Elements.Item(1)) .StartPos = 1 .EndPos = 1 End With .Add Surface1.Elements.Item(3),Surface1.Elements.Item(4) With .Add(Surface1.Elements.Item(4),Surface1.Elements.Item(3)) .StartPos = 0 .EndPos = 2 End With End With .ShowLinks = 33 ' ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks End With End Function </SCRIPT> </BODY> |
99 |
How do I show a link frmo bottom to top, or reverse, not from left to right
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add "Element <sha ;;0>A" .Add "Element <sha ;;0>B",0,64 End With With .Links With .Add(Surface1.Elements.Item(1),Surface1.Elements.Item(2)) .StartPos = 1 .EndPos = 1 End With End With End With End Function </SCRIPT> </BODY> |
98 |
What options to align the elements do I have if I use Arrange method
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .BeginUpdate .ShowGridLines = True With .Elements h1 = .Add("Top Alignment").ID .Add "Element" .Add "Element" .Add "Element" h2 = .Add("Center Alignment",,96).ID .Add "Element",,96 .Add "Element",,96 .Add "Element",,96 h3 = .Add("Bottom Alignment",,178).ID .Add "Element",,192 .Add "Element",,192 .Add "Element",,192 End With With .Links .Add Surface1.Elements.Item(1),Surface1.Elements.Item(2) .Add Surface1.Elements.Item(1),Surface1.Elements.Item(3) .Add Surface1.Elements.Item(2),Surface1.Elements.Item(4) .Add Surface1.Elements.Item(2),Surface1.Elements.Item(3) .Add Surface1.Elements.Item(5),Surface1.Elements.Item(6) .Add Surface1.Elements.Item(5),Surface1.Elements.Item(7) .Add Surface1.Elements.Item(6),Surface1.Elements.Item(8) .Add Surface1.Elements.Item(6),Surface1.Elements.Item(7) .Add Surface1.Elements.Item(9),Surface1.Elements.Item(10) .Add Surface1.Elements.Item(9),Surface1.Elements.Item(11) .Add Surface1.Elements.Item(10),Surface1.Elements.Item(12) .Add Surface1.Elements.Item(10),Surface1.Elements.Item(11) End With .DefArrange(3) = 0 .Arrange h1 .DefArrange(3) = 1 .Arrange h2 .DefArrange(3) = 2 .Arrange h3 .EndUpdate End With End Function </SCRIPT> </BODY> |
97 |
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it
|
96 |
Is it possible to change the distance between elements, when calling the Arrange method
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add("Element A").ID = "A" .Add("Element B").ID = "B" .Add("Element C").ID = "C" .Add("Element D").ID = "D" End With With .Links .Add Surface1.Elements.Item("A"),Surface1.Elements.Item("B") .Add Surface1.Elements.Item("A"),Surface1.Elements.Item("C") .Add Surface1.Elements.Item("B"),Surface1.Elements.Item("D") .Add Surface1.Elements.Item("B"),Surface1.Elements.Item("C") End With .DefArrange(1) = 0 .DefArrange(2) = 0 .Arrange End With End Function </SCRIPT> </BODY> |
95 |
How do I organize vertically the elements
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add("Element A").ID = "A" .Add("Element B").ID = "B" .Add("Element C").ID = "C" .Add("Element D").ID = "D" End With With .Links .Add Surface1.Elements.Item("A"),Surface1.Elements.Item("B") .Add Surface1.Elements.Item("A"),Surface1.Elements.Item("C") .Add Surface1.Elements.Item("B"),Surface1.Elements.Item("D") .Add Surface1.Elements.Item("B"),Surface1.Elements.Item("C") End With .ShowLinksType = 2 .DefArrange(0) = 1 .Arrange End With End Function </SCRIPT> </BODY> |
94 |
Is there a way to create a link which has the same start and end element
|
93 |
How can I prevent hiding the item when an item with an outgoing link, is collapsed
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add("Item <sha ;;0>1").ID = 1 .Insert("Item <sha ;;0>2",1).ID = 2 With .Add("Item <sha ;;0>3") .ID = 3 .X = 96 .Y = 23 End With End With With .Links .Add Surface1.Elements.Item(2),Surface1.Elements.Item(3) End With .ShowLinksOnCollapse = True End With End Function </SCRIPT> </BODY> |
92 |
How can I change the toolbar's visual appearance
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" .Background(148) = &H1000000 .Background(149) = RGB(255,255,255) .Background(150) = RGB(40,40,40) .Background(153) = &H1606060 .Background(154) = RGB(240,240,240) .Background(155) = &H1a0a0a0 .Background(156) = RGB(255,255,255) End With End Function </SCRIPT> </BODY> |
91 |
How can I change the toolbar's background color
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .Background(149) = RGB(255,255,255) End With End Function </SCRIPT> </BODY> |
90 |
How can I fit or ensure that all elements are in the control's client area
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add("Element A",-500,-500).BackColor = RGB(0,255,0) .Add("Element B",500,500).BackColor = RGB(255,0,0) .Add "Element C",48,24 End With .FitToClient End With End Function </SCRIPT> </BODY> |
89 |
When I use the context menu to insert an image, the size seems to be fixed to 32 pixels. How can I control / change this
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function Surface1_CreateElement(Element) ' Element.Edit(0,"multiline,wordwrap") ' Element.AutoSize = True With Surface1 alert( "Call Edit(0) method of the Element object" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function Surface1_RClick() ' SelElement(0).Edit(0,"multiline,wordwrap") With Surface1 .Selection = .ElementFromPoint(-1,-1) alert( "Call Edit(0) method of the SelElement(0) property" ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" .VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn" .Background(99) = &H1000000 .Background(102) = &H1fcddc0 .Background(88) = &H3000000 .SelectObjectColor = RGB(192,221,252) .HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" .HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif" With .Elements .Add("Element A").ID = "A" With .Add("Custom-size pictures:<br><img>pic1:24</img>,<img>pic2:48</img> ,... and so on.",96,48) .ID = "B" .CaptionSingleLine = False End With .Add "Element C",48,24 End With .EditContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=value = %i ? '<b>'+value : ( value =" & _ " vmax ? '<fgcolor 808080><font ;6><b>'+value : ( value = vmin ? '<fgcolor 808080><font ;6><b>'+value : '' ) )],Insert[group=3](<" & _ "img>pic1:32</img>[id=57763],<img>pic2:32</img>[id=57763],Others[id=1000](default[group=3](<img>pic3</img>[id=57763]),<font ;6>ot" & _ "her sizes[sep],<img>pic3:16</img>[id=57763],<img>pic3:32</img>[id=57763],<img>pic3:64</img>[id=57763]))" End With End Function </SCRIPT> </BODY> |
88 |
Can I add images to node while editing the node using the Edit method
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function Surface1_CreateElement(Element) ' Element.Edit(0,"multiline,wordwrap") ' Element.AutoSize = True With Surface1 alert( "Call Edit(0) method of the Element object" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function Surface1_RClick() ' SelElement(0).Edit(0,"multiline,wordwrap") With Surface1 .Selection = .ElementFromPoint(-1,-1) alert( "Call Edit(0) method of the SelElement(0) property" ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" .Background(99) = &H1000000 .Background(102) = &H10000ff .SelectObjectStyle = -1 .SelectObjectColor = RGB(192,221,252) .HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" .Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _ "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _ "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _ "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" With .Elements .Add("Element A").ID = "A" With .Add("This is a node that displays pictures:<br><img>pic1:48</img>,<img>pic2:48</img> ,... and so on.",96,48) .ID = "B" .CaptionSingleLine = False End With .Add("Element C",48,24).BackColor = RGB(255,255,255) End With End With End Function </SCRIPT> </BODY> |
87 |
I am using the Edit method to edit the node, but still not able to display multiple lines. Is this possible
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function Surface1_CreateElement(Element) ' Element.Edit(0,"multiline,wordwrap") ' Element.AutoSize = True With Surface1 alert( "Call Edit(0) method of the Element object" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function Surface1_RClick() ' SelElement(0).Edit(0,"multiline,wordwrap") With Surface1 .Selection = .ElementFromPoint(-1,-1) alert( "Call Edit(0) method of the SelElement(0) property" ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" .Background(99) = &H1000000 .Background(102) = &H10000ff .SelectObjectStyle = -1 .SelectObjectColor = RGB(192,221,252) With .Elements .Add("Element A").ID = "A" With .Add("Right-<b>Click</b> the node to edit it.",96,48) .ID = "B" .CaptionSingleLine = False End With .Add("Element C",48,24).BackColor = RGB(255,255,255) End With End With End Function </SCRIPT> </BODY> |
86 |
How can I change the visual appearance of the edit's context menu
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function Surface1_CreateElement(Element) ' Element.Edit(0) ' Element.AutoSize = True With Surface1 alert( "Call Edit(0) method of the Element object" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function Surface1_RClick() ' SelElement(0).Edit(0) With Surface1 .Selection = .ElementFromPoint(-1,-1) alert( "Call Edit(0) method of the SelElement(0) property" ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" .Background(99) = &H1000000 .Background(102) = &H10000ff .SelectObjectStyle = -1 .SelectObjectColor = RGB(192,221,252) With .Elements .Add("Element A").ID = "A" .Add("Right-Click to edit this node",96,48).ID = "B" .Add("Element C",48,24).BackColor = RGB(255,255,255) End With End With End Function </SCRIPT> </BODY> |
85 |
How can I edit the node once the user right-click the element
|
84 |
I wish to return the name that is displayed in the Element that I have selected
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function Surface1_SelectionChanged() With Surface1 alert( "The number of selected elements is: " ) alert( .SelCount ) alert( .SelElement(0).Caption ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .HideSel = False .SelectObjectColorInactive = .SelectObjectColor .SelectObjectTextColorInactive = .SelectObjectTextColor With .Elements .Add("Element 1").Selected = True With .Add("Element 2") .X = 32 .Y = 32 End With End With End With End Function </SCRIPT> </BODY> |
83 |
Been playing with the surface control with the embedded ExGrid ActiveX...I can see most events coming through via the Surface control but I can't get the OnOLEStartDrag event to fire
|
82 |
Is it possible to assign/add a percent to
an element
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements With .Add("Element A") .ID = "A" .CaptionAlign = 1 .AutoSize = False .Height = 36 .Width = 96 .MinHeight = 36 .BackgroundExt = "none[(2,100%-15,100%-4,14)](left[50%,back=RGB(0,255,0),text=`15%`,align=0x11,pattern=6,frame])" .BackgroundExtValue(2,2) = "75%" .BackgroundExtValue(2,4) = .BackgroundExtValue(2,2) End With End With End With End Function </SCRIPT> </BODY> |
81 |
How can I disable selecting the nodes/elements
|
80 |
How can I set my zooming levels on the control's toolbar
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .ZoomLevels = "75,100,150,200" .AllowLinkObjects = 0 With .Elements .Add("Element A").ID = "A" .Add("Element B",96,24).ID = "B" .Add("Element C",48,12).BackColor = RGB(255,255,255) End With End With End Function </SCRIPT> </BODY> |
79 |
How can I prevent zooming the surface
|
78 |
How can I prevent adding the links
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .AllowLinkObjects = 0 With .Elements .Add("Element A").ID = "A" .Add("Element B",96,24).ID = "B" .Add("Element C",48,12).BackColor = RGB(255,255,255) End With End With End Function </SCRIPT> </BODY> |
77 |
How can I fix all elements on the surface, so no moving or resizing is allowed
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .AllowResizeObject = 0 .AllowMoveObject = 0 With .Elements .Add("Element A").ID = "A" .Add("Element B",96,24).ID = "B" .Add("Element C",48,12).BackColor = RGB(255,255,255) End With End With End Function </SCRIPT> </BODY> |
76 |
How can I link elements with no pressing the SHIFT key
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .AllowInsertObject = False .AllowLinkObjects = 1 .AllowMoveObject = 0 With .Elements .Add("Element A").ID = "A" .Add("Element B",96,24).ID = "B" .Add("Element C",48,12).BackColor = RGB(255,255,255) End With End With End Function </SCRIPT> </BODY> |
75 |
How can I disable creating the tree/hierarchies
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .AllowInsertObject = False With .Elements .Add("Element A").ID = "A" .Add("Element B",96,24).ID = "B" .Add("Element C",48,12).BackColor = RGB(255,255,255) End With End With End Function </SCRIPT> </BODY> |
74 |
How can I create new elements using simple clicks rather than double clicks
|
73 |
How can I disable creating new elements at runtime
|
72 |
I've noticed that the links cut the elements. Is it possible to show the links on the back
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .ShowLinksType = 2 .ShowLinks = 1 With .Elements .Add("Element A").ID = "A" .Add("Element B",96,24).ID = "B" .Add("Element C",48,12).BackColor = RGB(255,255,255) End With With .Links .Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("B")).Caption = "link" End With End With End Function </SCRIPT> </BODY> |
71 |
How can I show a picture on the link
|
70 |
How can I show a caption on the link
|
69 |
I am using EBN to show my arrows, the question is if I can make it bigger/larger
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .VisualAppearance .Add 1,"c:\exontrol\images\normal.ebn" .Add 2,"CP:1 -2 -2 2 2" End With With .Elements .Add("Element A").ID = "A" .Add("Element B",96,24).ID = "B" .Add("Element C",96,-24).ID = "C" End With With .Links .Add Surface1.Elements.Item("A"),Surface1.Elements.Item("B") .Add Surface1.Elements.Item("A"),Surface1.Elements.Item("C") End With .LinksArrowColor = &H2000000 End With End Function </SCRIPT> </BODY> |
68 |
Is it possible to show different type of arrows for links
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" With .Elements .Add("Element A").ID = "A" .Add("Element B",96,24).ID = "B" .Add("Element C",96,-24).ID = "C" End With With .Links .Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("B")).ArrowColor = RGB(255,0,0) .Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("C")).ArrowColor = &H1000000 End With End With End Function </SCRIPT> </BODY> |
67 |
How can I remove or clear the entire surface
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .Elements.Add "element" .Elements.Clear .Home End With End Function </SCRIPT> </BODY> |
66 |
How can I programmatically add a child element, or create a tree/hierarchy
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add("Root").ID = "rootID" .Insert "Child 1","rootID" .Insert("Child 2","rootID").ID = "childID" .Insert "Child 3","rootID" .Insert "Sub-Child 1.2","childID" .Insert "Sub-Child 2.2","childID" End With End With End Function </SCRIPT> </BODY> |
65 |
I've noticed that the element's background is transparent. Can I make it opaque
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add("new 1").BackColor = RGB(255,255,255) .Add("new 1",24,24).BackColor = RGB(240,240,240) End With End With End Function </SCRIPT> </BODY> |
64 |
How can I add a resizable element
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements With .Add("new 1") .AutoSize = False .Resizable = True End With With .Add("new 1",24,24) .AutoSize = False .Resizable = True End With End With End With End Function </SCRIPT> </BODY> |
63 |
How can I programmatically add a new element
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add "new 1" .Add "new 1",24,24 End With End With End Function </SCRIPT> </BODY> |
62 |
Is it possible to assign a tooltip to an element
|
61 |
How do I specify direct/straight link for all links
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .ShowLinksType = 3 ' ShowLinkTypeEnum.exLinkStraight Or ShowLinkTypeEnum.exLinkDirect With .Elements .Add "Element <sha ;;0>A" .Add "Element <sha ;;0>B",96,24 End With With .Links .Add Surface1.Elements.Item(1),Surface1.Elements.Item(2) End With End With End Function </SCRIPT> </BODY> |
60 |
How do I show a direct/straight link
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add "Element <sha ;;0>A" .Add "Element <sha ;;0>B",96,24 End With With .Links .Add(Surface1.Elements.Item(1),Surface1.Elements.Item(2)).ShowLinkType = 3 ' ShowLinkTypeEnum.exLinkStraight Or ShowLinkTypeEnum.exLinkDirect End With End With End Function </SCRIPT> </BODY> |
59 |
How can I ensure that a specified element fits the surface's visible area
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements With .Add("Element A",-100).Pattern .Type = 6 .Color = RGB(224,224,224) End With .Add("Element B",2000).ScrollTo 17 End With End With End Function </SCRIPT> </BODY> |
58 |
Is it possible to show a pattern like ( not available ) over an element
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements With .Add("Element+Pattern",-100).Pattern .Type = 6 .Color = RGB(224,224,224) End With .Add "Element",100 End With End With End Function </SCRIPT> </BODY> |
57 |
How can I specify a different overview color for the element
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add("Element+A",-100).OverviewColor = RGB(255,0,0) .Add "Element+B",100 End With .ScrollPos(True) = 512 End With End Function </SCRIPT> </BODY> |
56 |
I've noticed that some lines are shown on the border, how can I get ride of them
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add "Element+A",-100 .Add "Element+B",100 End With .ScrollPos(True) = 512 .OverviewColor = -1 End With End Function </SCRIPT> </BODY> |
55 |
How can I handle clicking an icon or a picture
|
54 |
How can I display a picture
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" .Elements.Add("Element").Pictures = "pic1/pic2" End With End Function </SCRIPT> </BODY> |
53 |
How can I display a picture
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" .Elements.Add "Icon <img>pic1</img> or <img>pic2</img>" End With End Function </SCRIPT> </BODY> |
52 |
How can I display an icon
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _ "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _ "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _ "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Elements.Add("Element").Pictures = "0/1,2" End With End Function </SCRIPT> </BODY> |
51 |
How can I display an icon
|
50 |
How can I prevent moving all descendent/outgoing elements when focused element is moved, more like a free move
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add "Element <sha ;;0>A" .Add "Element <sha ;;0>B",96,24 End With With .Links .Add Surface1.Elements.Item(1),Surface1.Elements.Item(2) End With .ShowLinksType = 3 ' ShowLinkTypeEnum.exLinkStraight Or ShowLinkTypeEnum.exLinkDirect .AllowMoveDescendents = False End With End Function </SCRIPT> </BODY> |
49 |
How can I display the +/- expand/collapse glyphs next to linked elements
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements .Add "Element <sha ;;0>A" .Add "Element <sha ;;0>B",96,24 End With With .Links .Add Surface1.Elements.Item(1),Surface1.Elements.Item(2) End With .Elements.Item(1).Expanded = False .ExpandLinkedElements = True End With End Function </SCRIPT> </BODY> |
48 |
How can I host the Exontrol.Button inside the surface
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements With .Add("ActiveX") .Type = 2 .ElementFormat = """check"":18,""client""" .ShowCheckBox = True .Control = "Exontrol.Button" .Object.Caption = "<sha ;;0>button" .Height = 32 .Width = 128 End With End With End With End Function </SCRIPT> </BODY> |
47 |
How can I host a Command button
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements With .InsertControl("Forms.CommandButton.1") .ElementFormat = """check"":18,""client""" .Object.Caption = "command" .ShowCheckBox = True .Height = 48 .Width = 128 End With End With End With End Function </SCRIPT> </BODY> |
46 |
How can I handle the events of the inner ActiveX control
|
45 |
How can I display a checkbox while my node hosts an ActiveX inside
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements With .InsertControl("Forms.CommandButton.1") .ElementFormat = """check"":18,""client""" .Object.Caption = "command" .ShowCheckBox = True .Height = 48 .Width = 128 End With End With End With End Function </SCRIPT> </BODY> |
44 |
Is it possible to display a caption while the element hosts an ActiveX control
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements With .InsertControl("Forms.CommandButton.1") .ElementFormat = "18;""caption""/""client""" .Object.Caption = "command" .Caption = "Forms.CommandButton" .CaptionAlign = 1 .Height = 48 .Width = 128 End With End With End With End Function </SCRIPT> </BODY> |
43 |
I host an ActiveX control but it does not cover the whole element. What can be done
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements With .InsertControl("Forms.CommandButton.1") .ElementFormat = """client""" .Object.Caption = "command" .Height = 32 .Width = 128 End With With .InsertControl("Forms.CommandButton.1") .ElementFormat = """client""" .Object.Caption = "command" .Height = 32 .Width = 128 End With End With End With End Function </SCRIPT> </BODY> |
42 |
How can I host my ActiveX to the surface (method 2)
|
41 |
How can I host my ActiveX to the surface (method 1)
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements With .Add("ActiveX") .Type = 2 .ElementFormat = """client""" .Control = "Forms.CommandButton.1" .Object.Caption = "command" .Height = 32 .Width = 128 End With End With End With End Function </SCRIPT> </BODY> |
40 |
How can I define the elements with a solid color on the background
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .Background(88) = -1 .Background(89) = -1 .Background(90) = RGB(255,0,0) With .Elements .Add "Node A" .Add "Node B",96,24 End With End With End Function </SCRIPT> </BODY> |
39 |
Can I display the status to a different part of the element
|
38 |
How can I remove or hide the status part of the event
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function Surface1_AddElement(Element) ' Element.StatusSize = 0 End Function </SCRIPT> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .Background(89) = -1 With .Elements .Add "Node A" .Add "Node B",96,24 End With End With End Function </SCRIPT> </BODY> |
37 |
How can I change the visual appearance of the border for all elements
|
36 |
How can I change the color of the border for all elements
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .Background(88) = RGB(0,255,0) With .Elements .Add "Element+A" .Add "Element+B",96,24 End With End With End Function </SCRIPT> </BODY> |
35 |
How can I remove the border for all elements
|
34 |
How do I change the visual appearance the glpyh that shows when the element is added as a child
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" .VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn" .Background(86) = &H1000000 .Background(87) = &H2000000 With .Elements .Add "Element <sha ;;0>A" .Add "Element <sha ;;0>B",96,24 End With End With End Function </SCRIPT> </BODY> |
33 |
Is it possible to change the color for the glpyh that shows when the element is added as a child
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .Background(86) = RGB(255,0,0) .Background(87) = RGB(255,0,0) With .Elements .Add "Element <sha ;;0>A" .Add "Element <sha ;;0>B",96,24 End With End With End Function </SCRIPT> </BODY> |
32 |
How can I change the color to show a valid link
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .Background(83) = RGB(0,255,0) With .Elements .Add "Element <sha ;;0>A" .Add "Element <sha ;;0>B",96,24 End With End With End Function </SCRIPT> </BODY> |
31 |
How can I change the color to show an invalid link
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .Background(82) = RGB(0,255,0) With .Elements .Add "Element <sha ;;0>A" .Add "Element <sha ;;0>B",96,24 End With End With End Function </SCRIPT> </BODY> |
30 |
How can I disable adding the elements as child of other nodes
|
29 |
How can I prevent moving the outgoing /descendents elements when moving an element
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .ShowLinksType = 3 ' ShowLinkTypeEnum.exLinkStraight Or ShowLinkTypeEnum.exLinkDirect .AllowMoveDescendents = False With .Elements .Add "Element <sha ;;0>A" .Add "Element <sha ;;0>B",96,24 End With With .Links .Add Surface1.Elements.Item(1),Surface1.Elements.Item(2) End With End With End Function </SCRIPT> </BODY> |
28 |
How can I add programatically a link
|
27 |
How do I prevent adding a link between elements
|
26 |
How can I hide the 100% button ( zoom ) on the control's toolbar
|
25 |
Is it possible to hide the Home button on the control's toolbar
|
24 |
How can I hide the grid lines, including the axis
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .ShowGridLines = False .AxisStyle = -1 End With End Function </SCRIPT> </BODY> |
23 |
How can I hide the grid lines
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .ShowGridLines = False End With End Function </SCRIPT> </BODY> |
22 |
How can I clear the images shown on the control's toolbar
|
21 |
How can I replace the default icons shown on the control's toolbar
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .ToolBarReplaceIcon 0,-1 .ToolBarImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _ "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _ "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _ "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" End With End Function </SCRIPT> </BODY> |
20 |
How can I replace the default icons shown on the control's toolbar
|
19 |
How can I add an anchor element to the control's toolbar
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function Surface1_ToolBarAnchorClick(AnchorID,Options) With Surface1 alert( AnchorID ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .ToolBarFormat = "-1,100,101,|,102" .ToolBarCaption(102) = "<a a1>anchor</a>" End With End Function </SCRIPT> </BODY> |
18 |
How can I add a button/image to the control's toolbar
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function Surface1_ToolBarClick(ID,SelectedID) With Surface1 alert( ID ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .ToolBarImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _ "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _ "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _ "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .ToolBarFormat = "-1,100,101,102" .ToolBarCaption(102) = "<img>3</img> new" End With End Function </SCRIPT> </BODY> |
17 |
How can I add a button to the control's toolbar
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function Surface1_ToolBarClick(ID,SelectedID) With Surface1 alert( ID ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .ToolBarFormat = "-1,100,101,102" .ToolBarCaption(102) = "<sha ;;0>new" End With End Function </SCRIPT> </BODY> |
16 |
How can I hide the control's toolbar
|
15 |
How can I prevent selecting the elements
|
14 |
How can I show the selected elements the same as the control has the focus
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .HideSel = False .SelectObjectColorInactive = .SelectObjectColor .SelectObjectTextColorInactive = .SelectObjectTextColor .Elements.Add("element").Selected = True End With End Function </SCRIPT> </BODY> |
13 |
How can I show the selected elements with a different border
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" .HideSel = False .SelectObjectStyle = 48 .SelectObjectColor = &H1000000 .SelectObjectTextColor = RGB(0,0,0) .SelectObjectColorInactive = .SelectObjectColor .SelectObjectTextColorInactive = .SelectObjectTextColor .Elements.Add("element").Selected = True End With End Function </SCRIPT> </BODY> |
12 |
How can I show the selected elements with a different background color
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .HideSel = False .SelectObjectStyle = -1 .SelectObjectColor = RGB(255,0,0) .SelectObjectTextColor = RGB(255,255,255) .SelectObjectColorInactive = .SelectObjectColor .SelectObjectTextColorInactive = .SelectObjectTextColor .Elements.Add("element").Selected = True End With End Function </SCRIPT> </BODY> |
11 |
Is it possible to add an inner control on the surface
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function Surface1_OleEvent(Element,Ev) With Surface1 alert( Ev ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements With .Add("activex hosting") .Type = 2 .Control = "Forms.CommandButton.1" .Caption = "Command Button" .Height = 64 .Width = 128 .ElementFormat = "14;""caption""/""client""" .CaptionAlign = 1 End With End With End With End Function </SCRIPT> </BODY> |
10 |
How can I make the control read-only
|
9 |
How can I handle clicking a picture on the element
|
8 |
How can I show the hand cursor when user hovers the element's image
|
7 |
How can I show the hand cursor when user hovers the element's checkbox
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 With .Elements With .Add("new element") .CaptionAlign = 2 .CheckBoxAlign = 0 .ShowCheckBox = True .ShowHandCursorOn = 3084 ' ShowHandCursorOnEnum.exShowHandCursorAnchorAll Or ShowHandCursorOnEnum.exShowHandCursorCheck End With End With End With End Function </SCRIPT> </BODY> |
6 |
How can I remove the status part for all elements
|
5 |
How can I remove the border for all elements
|
4 |
How do I edit the element's caption once the user creates the element
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function Surface1_CreateElement(Element) ' Element.Edit(0) ' Element.AutoSize = True End Function </SCRIPT> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() End Function </SCRIPT> </BODY> |
3 |
How can I align the element's checkbox next to the text
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .BeginUpdate With .Elements With .Add("text") .ShowCheckBox = True .CaptionAlign = 2 .CheckBoxAlign = 0 End With End With .EndUpdate End With End Function </SCRIPT> </BODY> |
2 |
How can I assign a check-box to all elements
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function Surface1_AddElement(Element) ' Element.ShowCheckBox = True End Function </SCRIPT> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .BeginUpdate With .Elements .Add "",-24,-24 .Add("").Checked = 1 End With .Home .EndUpdate End With End Function </SCRIPT> </BODY> |
1 |
How do I change the control's background color
<BODY onload="Init()"> <OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Surface1 .BackColor = RGB(240,240,240) End With End Function </SCRIPT> </BODY> |